home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / oasis / oasisegs.lha / egs / tak.d < prev    next >
Text File  |  1992-04-23  |  330b  |  16 lines
  1. class tak {
  2. method:
  3.     public      main (int ?A).
  4.     private     tak  (int X, Y, Z, ?A).
  5. }
  6.  
  7. tak {
  8.     main(A) |- tak(24,16,8,A').
  9.  
  10.     tak(X',Y',Z',Z) :- X <= Y.
  11.     tak(X',Y',Z',A) |- tak(X-1,Y,Z,A1');
  12.                        tak(Y-1,Z,X,A2');
  13.                        tak(Z-1,X,Y,A3');
  14.                        tak(A1,A2,A3,A').
  15. }
  16.